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**F ILE**1D**F PUTCHAR 


FFFFFFFFFE PPPPPPPP UU UU TITTTTITTT cccccccc HH HH AAAAAA RRRRRRRR | 
FFFFFFFFFF PPPPPPPP UU UU TTTTTTTTTT CCCCCCCC OHH HH AAAAAA RRRRRRRR 
FF PP PP UU UU TT cc HH HH AA AA RR RR 

FF PP PP UU UU TT cc HH HH AA AA RR RR 

FF PP PP UU UU TT cc HH HH AA AA RR RR 

FF PP UU UU TT cc HH HH AA AA RR RR 

FFFFFFFF PPPPPPPP UU UU TT cc HHHHHHHHHH = AA AA RRRRRRRR 

FFFFFFFF PPPPPPPP UU UU TT CC HHHHHHHHHH = AA AA RRRRRRRR 

FF PP UU UU TT cc HH HH AAAAAAAAAA RR RR 

FF PP UU UU TT cc HH HH AAAAAAAAAA RR RR 

FF PP UU UU TT cc HH HH AA AA RR RR eeee 
FF PP UU UU TT cc HH HH AA AA RR RR eevee 
FF PP UUUUUUUUUU TT CCCCCCCC HH HH AA AA RR RR cove 
FF PP UUUUUUUUUU TT cccccccc HH HH AA AA RR RR cece 
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EDTSFPUTCHAR = store a character in the format 16-Sep-1984 74 VAX-11 Bliss-32 V4.0-7 1 
14- sep 7 90: $f: 13 DISKSVMSMASTER: th i’sacSeputcnan. BLI;1 (1) | 
: 1 8 1 ZTITLE ‘EDTSFPUTCHAR = store a character in the format buffer’ | 
3 ¢ ¢ MODULE EDTSFPUTCHAR ( ' Store a » character in the format buffer 
; i i we = ‘v04-000' ile: FPUTCHAR.BLI Edit: JBS1004 
4 = 
: 5 BR? : BEGIN 
: , $e 1 i eeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeererteeeereneeerereeeeeeeeeeeaeeeeeeeeeeee 
; he “ 
3 5 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 3 he ' :* ALL RIGHTS RESERVED. . 
Ps : % 
$ ig $O18 1 !e oe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ye? AND cop tee * | 
3 14 Bote 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Thats SE oe | a THE * 
.- 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * | 
3 16 pots 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 01 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 poi8 | 1# TRANSFERRED. . | 
3 ‘® ® 
3 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBUYECT TO CHANGE WITHOUT NOTICE * 
3 $3 68 1 1 !* AND SHOULD NOT BE CONSTRUED AS A COMM!'TMENT BY DIGITAL EQUIPMENT * 
; ¢ 85 ; : i: CORPORATION. - 
: 34 0024 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; a 0026 1 !« * 
ee 0027 1 !« ® 
3 3 Ba56 : | Seeeeecesogencesesnronsnsenetsoeoessesesoeseensesenerenseeseresseneteesetete | 
: 30 5030 1 
; 1 0031 1 !++ 
3 3 4 1 ! FACILITY: EDT -- The DEC Standard Editor 
= 0033 1! 
3 4 0034 1 ! ABSTRACT: 
5 5 0035 1! 
3 6 0036 1! Store a character in the format buffer. Write out the buffer 
; 3s oth ! if it overflows. 
; 44 44 ' ENVIRONMENT: Runs at any access mode - AST reentrant 
: 41 0041 i AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
; rk 0043 1 | MODIFIED BY: 
; «644 Bee 1! 
3; 65 045 1 ! 1-001 - Original. DJS 19-FEB-1981. This module was created by 
; 646 0046 1! extracti os routine EDT$$PUT cH froe module FORMAT. 
3 (47 0047 1! 1- 3 - Regularize header rs. JBS 05-Mar-1981 
; 648 0048 1! te - Use EDTSSK_FMT_BUFLEN. JBS 29-Sep-1982 
; #49 eh 1! 04 - Fix a beh Syabol name. JBS 04-Jan-1983 
; $0 050 1! 
oH 0051 1 
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EDTSFPUTCHAR EDTSFPUTCHAR = store a character in the format -$ep-1984 00:28:4 VAX-11 Bliss-32 V4.0-74 Page : 
104-000 EDTSSSTORE_FMTCH = store a character tn the fo 1 730071382 99:58:43 DISKSVMSMASTERSCEDT SRCSFPUTCHAR.BLI<3® (3) | 

| 
; §6 oy ! RSBTTL "EDTSSSTORE_FMTCH = store a character in the format buffer’ : 
; 5 6 8 1 GLOBAL ROUTINE EDTSSSTORE_FMTCH ( ! Store a character in the format buffer | ; 
; 9 659 1 ! The character to store ‘ 
; 660 1 ) : NOVALUE = ‘ 
; 6 CoM 661 1 ‘ 
; 85 276 1 le4 ‘ 
; ¢, vets ! : FUNCTIONAL DESCRIPTION: : 
; 665 1: Place a character in the formatted output buffer. If the pointer is at the ‘ 
; 38 668 ! end of the buffer then write out the Line and start over again. ; 
; «98 238 1 ! FORMAL PARAMETERS: : 
; 100 0690 i C The ch ter t t out 
3 : e character to put out. “ 
: 101 0671 1! : ‘ 
; i9§ berg 1 ! IMPLICIT INPUTS: : 
; 10 0675 1! : 
: 104 0674 1! EDTSS$T_FMT_BUF : 
; 105 0675 1! EDTSSA_FMT_CUR 3 
; 106 0676 1! EDT$$G_FMT—LNPOS F 
; 107 0677 1! : 
; 108 Bore 1 ! IMPLICIT OUTPUTS: ; 
; 109 79 1! ‘ 
3; 110 680 1! NONE ; 
: 6111 0681 1! 3 
; Tie 0682 1 ! ROUTINE VALUE: : 
; 113 0685 1! ; 
3; 61146 0684 1 ! NONE ‘ 
; 6115 0685 1! : 
; 1 0686 1 ! SIDE EFFECTS: : 
s Wie 0687 1! ; 
; 118 0688 1! NONE 
; 119 0689 1! 
; 120 0690 1 !-- 
; (Yel 0691 1 
; \s¢ 069 BEGIN 
3 ie 069 
: 124 0694 EXTERNAL ROUTINE 
3 te 0695 EDTSSOUT_FMTBUF ; 
3; Ye 0696 
: 127 0697 EeTeaNe, ' 
; 128 0698 EDTSST_FMT_BUF : BLOCK CCHSALLOCATION (EDTSS$K_FMT_BUFLEN)], ! The formatted output buffer 
‘ 193 5344 EDTSSA_FMT_CUR ! Pointer to next character in above 
3 139 Bros EDT$$G_FMT-LNPOS; ! The current column number 
: 136 $70 OCAL 
; 13 070 SAV_LNPOS; 
3 «(134 thi 
3: 135 4 BIND : 
3 18 0? $ END_BUF = CHSPTR (EDTSST_FMT_BUF, EDTSSK_FMT_BUFLEN);  ! Pointer to end of format buffer 
; 138 8 '¢ 
3; «139 709 ! Check for end of buffer. 
; 140 710 !- 
3 «6141 0711 
3 142 0712 IF CHS$PTR_EQL (END_BUF, .EDTSSA_FMT_CUR) 
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7 = store a character in the forsey | 16-5 tp-19 r 00:68:43 VAX-11 Bliss- mt v4. 


vee-o60 


TCH 
ORE_FMTCH = store a character the fo 14-Sep-19 DISKSVMSMASTER:CEDT. OS RC SFPUTCHAR. BLI; had (3 


U 

T 
BEGIN 
SAV_LNPOS = sEDTSS6_ FMT _LNPOS; 
EDTS$$G_FAT_LNPOS = .SAV_LNPOS; 
END; 

1 


} 
| 
EDISSOUT. FMTAUE O57 | 
| 


Be Se Se ee Se ee Se Se ae 
ed ed ed ed 


CHSWCHAR_A (.C, EDTSSA_FMT_CUR); 
END; ! of routine EDTSS$STORE_FMTCH 


-TITLE EDTSFPUTCHAR EDTSFPUTCHAR = store a character i 
3 n the format 
-IDENT \V04-000\ 


.EXTRN EDTS$S$OUT_FMTBUF 
-EXTRN EDTSST_FAT_BUF, EDTSSA_FMT_CUR 
“EXTRN EDT$S$G~FMT~LNPOS 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


001¢ 00000 .ENTRY EDTSS$STORE_FMTCH, Save R2,R3,R4 : 0658 
54 000000006 00 9E 00002 MOVAB EDT$$G_ EMT. “LNPOS, _R4 : 
53 000000006 00 9E 00009 MOVAB EDTSSA“FMT~CUR, R3 : 

50 000000006 00 9E 00010 MOVAB END BU « : 0712 
50 63 D1 00017 CMPL EDTSSA,. FMT_CUR, RO ; 
OD 12 OOO1A BNEG 1$ : 

52 64 00 OO0IC MOVL EDTS$$G_FMT ate Fo _LNPOS 3; 0715 

000000006 00 00 FB OO01F CALLS #0, EDTS$OOT .F + 0716 

64 26 DO 00026 MOVL SAV_LNP EBISSG. FMT_LNPOS 3; 0717 

50 63 DO 00029 1$ MOVL  EDTSSA Nis nf_e : 0720 
60 04 Ac 90 0002¢ MOVB = C,,_ (RO ; 
63 06 00030 INCL EDT$SA_FMT_CUR : 

04 00032 RET + 0721 


; Routine Size: 51 bytes, Routine Base: _EDTSCODE + 0000 


2 0722 #1 
3 0723 1 '<BLF/PAGE> 
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EDTSFPUTCHAR EDTSFPUTCHAR = store a character in the format 1b-se -1984 00:28:4 VAX-11 Bliss-32 V4.0-74 Page 5 
RL bob EDTSSSTORE_FMTCH = store a character in the fo 12-8 08- 138 00:38:43 NTEKSUMGHASTERSCEDT SRCSFPUTCHAR.BLIC?” (4) 
: 138 0795 ! END ! of module EDTSFPUTCHAR 
: 18 726 0 ELUDOM | 
3 PSECT SUMMARY 
; Name Bytes Attributes 
; _EDTSCODE 51 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
; Library Statistics 
ee aA ae ee ee cae Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$255$DUA28: CEDT. SRCJEDT 1 32:1 377 2 0 40 00:00.2 | 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
3 COMMAND QUALIFIERS 
; PLE S/CMECK OCT FELD, AMET SAL OPT IAL ES) /HOTRACERACEAL 1841, 195 1F PUTERAR/OBJOOR IS 1FPUTCHAR MSRC$:FPUTCHAR.BLI/UPDATE=(ENH$:F PUT 
3 Size: 51 code + 0 data bytes 
3; Run Time: 82 :99-6 
; Elapsed Time: 00:11. 
3 Lines/CPU Min: 4518 
3 12404 
: es | 
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